home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / bbs / DayDreamBBS.lha / DayDream / REXX / servertest.rexx < prev    next >
OS/2 REXX Batch file  |  1996-10-14  |  747b  |  39 lines
  1. /**/
  2.  
  3. ADDRESS "SERVER-REXX"
  4. OPTIONS RESULTS
  5.  
  6. NODE = 2
  7.  
  8.     NODEINFO NODE 0             /* QUERY NODE ACTIVITY */
  9.     IF RC=0 THEN do; SAY "Node "NODE" is not active!"; exit; end
  10.  
  11.                             /* NODE IS ACTIVE */
  12.     NODEINFO NODE 1            /* QUERY IF USER IS ONLINE */
  13.     IF RC=0 THEN do; SAY "No user online on node #"NODE"."; exit; end
  14.  
  15.                             /* THERE IS A USER ONLINE */
  16.  
  17.     NODEINFO NODE 6         /* QUERY USER ORGANIZATION */
  18.     ORGANIZATION=RESULT
  19.  
  20.     NODEINFO NODE 5         /* QUERY USER LOCATION */
  21.     LOCATION=RESULT
  22.  
  23.     NODEINFO NODE 4         /* QUERY USER REALNAME */
  24.     REALNAME=RESULT
  25.  
  26.     NODEINFO NODE 3         /* QUERY USER HANDLE */
  27.     HANDLE=RESULT
  28.  
  29.     NODEINFO NODE 2         /* QUERY ACTIVITY STRING */
  30.     ACTIVITY=RESULT
  31.  
  32.     SAY HANDLE
  33.     SAY REALNAME
  34.     SAY LOCATION
  35.     SAY ORGANIZATION
  36.     SAY ACTIVITY
  37.  
  38. EXIT 0
  39.